home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / EasyPLUGINs / examples / poptask_demo.e < prev    next >
Encoding:
Text File  |  1998-02-12  |  482 b   |  34 lines
  1.  
  2. /*
  3.  
  4. */
  5.  
  6. OPT PREPROCESS, OSVERSION=37
  7.  
  8. MODULE 'tools/easygui', 'easyplugins/poptask',
  9.        'utility', 'utility/tagitem'
  10.  
  11. DEF poptask:PTR TO poptask_plugin
  12.  
  13. PROC main() HANDLE
  14.  
  15.     IF (utilitybase:=OpenLibrary('utility.library', 37))=NIL THEN Raise("utlb")
  16.  
  17.     NEW poptask.poptask([TAG_DONE])
  18.  
  19.     easyguiA('poptask_plugin example', [PLUGIN, {dummy}, poptask, TRUE])
  20.  
  21. EXCEPT DO
  22.  
  23.     END poptask
  24.  
  25.     IF utilitybase THEN CloseLibrary(utilitybase)
  26.  
  27. ENDPROC
  28.  
  29. PROC dummy()
  30.  
  31. ENDPROC
  32.  
  33.  
  34.